home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 101 / CD-ROM 101.iso / compl / maya5ple / Install_MayaPLE5_English.exe / Maya / Data1.cab / arcProperties.mel < prev    next >
Encoding:
Text File  |  2003-07-17  |  2.5 KB  |  77 lines
  1. // Copyright (C) 1997-2002 Alias|Wavefront,
  2. // a division of Silicon Graphics Limited.
  3. //
  4. // The information in this file is provided for the exclusive use of the
  5. // licensees of Alias|Wavefront.  Such users have the right to use, modify,
  6. // and incorporate this code into other products for purposes authorized
  7. // by the Alias|Wavefront license agreement, without fee.
  8. //
  9. // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  10. // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  11. // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  12. // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  13. // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
  14. // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15. // PERFORMANCE OF THIS SOFTWARE.
  16. //
  17. //
  18. //  Alias|wavefront Script File
  19. //  MODIFY THIS AT YOUR OWN RISK
  20. //
  21. //  Creation Date:  June 98 
  22. //  Author: rs
  23. //
  24. //  Description:
  25. //      These procs helps to create the controls for arc creation 
  26. //      property sheet.  See also arcValues.mel for procs that set
  27. //      the state of the property sheet.
  28. //
  29. //  Input Arguments:
  30. //      None.
  31. //
  32. //  Return Value:
  33. //      None.
  34. //
  35.  
  36. proc arcCallback( string $parent, string $ctxCmd )
  37. //
  38. //    Description :
  39. //
  40. {
  41.     setParent $parent ;
  42.  
  43.     // degree of curve.
  44.     //
  45.     radioButtonGrp -e -on1 ($ctxCmd + " -e -d 1 `currentCtx`")
  46.                       -on2 ($ctxCmd + " -e -d 3 `currentCtx`")     arcDegreeRadio13 ;
  47.  
  48.     // call back for # of spans(sections).
  49.     //
  50.     intSliderGrp -e -cc ($ctxCmd + " -e -s #1 `currentCtx`") arcSectionsSlider;
  51. }
  52.  
  53. global proc arcProperties( string $type,  string $ctxCmd) 
  54. //
  55. //    Description : This procedure builds the property sheet
  56. //    and assigns callbacks to its controls.
  57. {
  58.     setUITemplate -pushTemplate OptionsTemplate;
  59.     string $parent = `toolPropertyWindow -q -location`;
  60.     setParent $parent;
  61.  
  62.     columnLayout -adj true $type;        
  63.         //    Sets proper width for frameLayout in Arc properties tool window, applicable for all platforms
  64.         frameLayout -bv true -cll true -collapse false -width 400 -l "Arc Settings" geometryOptions_F;
  65.             columnLayout geometryOptions_L;
  66.                 radioButtonGrp -nrb 2 -l "Circular Arc Degree" -l1 "1 Linear" -l2 "3" arcDegreeRadio13;
  67.                 intSliderGrp -label "Sections" -field true -min 8 -max 100 -fmn 4 -fmx 200 -v 8 arcSectionsSlider;    
  68.             setParent .. ;
  69.         setParent .. ;
  70.     setParent .. ;
  71.  
  72.     arcCallback( $parent, $ctxCmd ) ;
  73.     setUITemplate -popTemplate;            
  74. }
  75.  
  76.  
  77.